unit Actions;

{ -------------------- INTERFACE -------------------- }
interface

uses
  SysUtils, Classes, RzEdit;

const
  MAX_UNDO = 25;

type
  TAction = interface
    procedure Redo; virtual;
    procedure Undo; virtual;
  end;

  TChangeTimeAction = class(TAction)
  private
    field: TRzMaskEdit;
    oldValue, newValue: string;
  public
    constructor Create(timeField: TRzMaskEdit; oldValue, newValue: string); virtual;
    procedure Redo; overload;
    procedure Undo; overload;
    { Setters }
    procedure SetOldValue(value: string);
    procedure SetNewValue(value: string);
  end;

  { -------------------- IMPLEMENTATION -------------------- }
implementation



end.
